home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / S / SetFont < prev    next >
AmigaDOS Script File  |  1997-09-29  |  986b  |  60 lines
  1. .key FONT/A,SIZE/A,SCALE/S,PROP/S,ITALIC/S,BOLD/S,UNDERLINE/S,CLEAR/S
  2. .bra <
  3. .ket >
  4.  
  5. SetVNC IfVNC
  6. if WARN
  7.     C:SetFont <FONT> <SIZE> <SCALE> <PROP> <ITALIC> <BOLD> <UNDERLINE>
  8. else
  9.     if "<FONT>" eq "topaz"
  10.         if "<SIZE>" eq "9" val
  11.             echo "*E]50;topaz.9"
  12.             skip setstyle
  13.         endif
  14.         if "<SIZE>" eq "8" val
  15.             echo "*E]50;topaz.8"
  16.             skip setstyle
  17.         endif
  18.     endif
  19.  
  20.     if exists "FONTS:<FONT>.font"
  21.         if "<SCALE>" eq "SCALE"
  22.             echo "*E]50;<FONT>.<SIZE>"
  23.             skip setstyle
  24.         else
  25.             if exists "FONTS:<FONT>/<SIZE>e"
  26.                 echo "*E]50;<FONT>.<SIZE>"
  27.                 skip setstyle
  28.             else
  29.                 if exists "FONTS:<FONT>/<SIZE>"
  30.                     echo "*E]50;<FONT>.<SIZE>"
  31.                     skip setstyle
  32.                 else
  33.                     fault 205
  34.                     quit 10
  35.                 endif
  36.             endif
  37.         endif
  38.     else
  39.         fault 205
  40.         quit 10
  41.     endif
  42.  
  43.  
  44.     lab setstyle
  45.  
  46.     echo "*E[0m"
  47.     if "<ITALIC>" eq "ITALIC"
  48.         echo "*E[3m"
  49.     endif
  50.     if "<BOLD>" eq "BOLD"
  51.         echo "*E[1m"
  52.     endif
  53.     if "<UNDERLINE>" eq "UNDERLINE"
  54.         echo "*E[4m"
  55.     endif
  56.     if "<CLEAR>" eq "CLEAR"
  57.         echo "*E[H*E[2J"
  58.     endif
  59. endif
  60.